home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / freetk.arc / POWFACT.TK < prev    next >
Encoding:
Text File  |  1987-06-16  |  1.9 KB  |  263 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9.  POWER FACTOR WITH COMPLEX FUNCTIONS
  10. #3
  11. :n
  12. mV
  13. :v
  14. 440
  15. :s
  16. i
  17. :u
  18. V
  19. :d
  20. V
  21. :c
  22. phasor effective voltage
  23. #4
  24. :n
  25. aV
  26. :v
  27. 0
  28. :s
  29. i
  30. :u
  31. rad
  32. :d
  33. deg
  34. :c
  35.    "       "        "
  36. #5
  37. :n
  38. mZ
  39. :s
  40. b
  41. :u
  42. ohm
  43. :d
  44. ohm
  45. :c
  46. equivalent impedance
  47. #6
  48. :n
  49. aZ
  50. :s
  51. b
  52. :u
  53. rad
  54. :d
  55. deg
  56. :c
  57.     "          "
  58. #7
  59. :n
  60. mI
  61. :s
  62. b
  63. :u
  64. A
  65. :d
  66. A
  67. :c
  68. phasor effective current
  69. #8
  70. :n
  71. aI
  72. :s
  73. b
  74. :u
  75. rad
  76. :d
  77. deg
  78. :c
  79.    "       "        "
  80. #9
  81. :n
  82. mS
  83. :v
  84. 15000
  85. :s
  86. i
  87. :u
  88. VA
  89. :d
  90. kVA
  91. :c
  92. apparent power
  93. #10
  94. :n
  95. aS
  96. :s
  97. b
  98. :u
  99. rad
  100. :d
  101. deg
  102. :c
  103.    "       "
  104. #11
  105. :n
  106. S
  107. :v
  108. 10000
  109. :s
  110. i
  111. :u
  112. W
  113. :d
  114. kW
  115. :c
  116. average power P
  117. #12
  118. :n
  119. jS
  120. :s
  121. b
  122. :u
  123. var
  124. :d
  125. kvar
  126. :c
  127. quadrature power Q
  128. #13
  129. :n
  130. pf
  131. :s
  132. b
  133. :c
  134. power factor
  135. #14
  136. :n
  137.  
  138. :s
  139. b
  140. #15
  141. :n
  142. pfnew
  143. :v
  144. .95
  145. :s
  146. i
  147. :c
  148. new power factor
  149. #16
  150. :n
  151. mSnew
  152. :s
  153. b
  154. :u
  155. VA
  156. :d
  157. kVA
  158. :c
  159. new apparent power
  160. #17
  161. :n
  162. aSnew
  163. :s
  164. b
  165. :u
  166. rad
  167. :d
  168. deg
  169. :c
  170.  "      "      "
  171. #18
  172. :n
  173. jSnew
  174. :s
  175. b
  176. :u
  177. var
  178. :d
  179. kvar
  180. :c
  181. new quadrature power Q
  182. #19
  183. :n
  184. Qc
  185. :s
  186. b
  187. :u
  188. var
  189. :d
  190. kvar
  191. :c
  192. capacitive Q of capacitor bank
  193. #20
  194. :n
  195.  
  196. :s
  197. b
  198. :c
  199.  >> Type  =R  to see the Rule Sheet <<
  200. =u
  201. #1
  202. :f
  203. rad
  204. :t
  205. deg
  206. :m
  207. 57.2957795129
  208. #2
  209. :f
  210. kW
  211. :t
  212. W
  213. :m
  214. 1000
  215. #3
  216. :f
  217. kVA
  218. :t
  219. VA
  220. :m
  221. 1000
  222. #4
  223. :f
  224. kvar
  225. :t
  226. var
  227. :m
  228. 1000
  229. =r
  230. #1
  231. :r
  232. rcis(mI,aI) = rcis(mV,aV)/rcis(mZ,aZ)                   " Ohm's law
  233. #2
  234. :r
  235. rcis(mS,aS) = rcis(mV/sqrt(2),aV)*rcis(mI/sqrt(2),-aI)  " Complex power
  236. #3
  237. :r
  238. (S,jS) = rcis(mS,aS)              " Power: rectangular-polar conversion
  239. #4
  240. :r
  241. (S,jSnew) = rcis(mSnew,aSnew) 
  242. #5
  243. :r
  244. pf = cos(aS)                      " Power factor definition
  245. #6
  246. :r
  247. pf = S/mS
  248. #7
  249. :r
  250. pfnew = cos(aSnew)                "   Effect of shunt capacitance
  251. #8
  252. :r
  253. pfnew = S/mSnew                   "   on improved power factor
  254. #9
  255. :r
  256. jS = jSnew + Qc
  257. #11
  258. :r
  259. "   >> Type  =V  to see the Variable Sheet <<
  260. :s
  261. C
  262. %Tv,f,19,5,0,1,0
  263.